//==============================================
// 
// NXg by FPE(2006.7.3)
// Jathena++ ׾¡Ghttp://www.foxofice.net/bbs
//----------------------------------------------

function	script	son	{
	deletearray @hair_son01$[0],20;
	deletearray @hair_son02$[0],20;
	setarray @hair_son01$,	"",
				"˦",
				"Cϥμm",
				"Fz}",
				"Gs",
				"ѨϤپ",
				"ϥ",
				"Ir",
				"Ǫ",
				"fr",
				"ͳN",
				"s",
				"wϥμm",
				"pɳN",
				"wi",
				"Lv",
				"{q",
				"Mq",
				"W",
				"ùQĮ";
	setarray @hair_son02$,	"",
				"SíAOLSIA",
				"M@즳WChoA",
				"iHPıAOqvA",
				"߸ܱoܲMvA",
				"oOܥRܰ@۪vA",
				"oOɥΤA ¦yҰvA",
				"PınrPıvA",
				"unݤ@ܡA |ܦhHgWv!",
				"PRlޤOvA",
				"PıWiH]@Ūv!",
				"⯫sڬ¦yAҰv",
				"ݰ_ӫܰTӬ[v!",
				"PıWnb̡A QpLPı!!",
				"NOHPıAQnhIqvA",
				"몺PınQ쪺v!",
				"PınQ줭ˮ`v...?",
				"bWHKߪFߦ誺vA",
				"@ӮɥN}Gv...!",
				"@ҦƱ泣HbWv!";
	cutin "son",2;
	mes "[]";
	mes "An~";
	mes "ڬOֺF ^3355FF^000000";
	mes "F^XjapRA";
	mes "ڤwgǷ|F";
	mes "U쥴v\ҤF";
	next;
	mes "[]";
	mes "ɭԤ]ݭn@ؤ߱ڡA";
	mes "ڸյഫ@UA߱A";
	mes "A@UvnܡH";
	next;
	menu	"ڭnݾv",A01,
		"ڷQܾv",A02,
		"_ڪHP/SP",A03,
		"",A04;

A01:
	mes "[]";
	mes "vAq123A";
	mes "аݧAnݴXH";
	mes "QݪܡAп0A";
	next;
	input @nobem;
	if(@nobem<1 || @nobem>23) goto A04;
	if(@nobem>=10) cutin sex?("hair_m_"+@nobem):("hair_f_"+@nobem),4;
	else cutin sex?("hair_m_0"+@nobem):("hair_f_0"+@nobem),4;
	//if(Sex == 0 && @nobem < 10) cutin "hair_f_0"+@nobem,4; 
	//if(Sex == 1 && @nobem < 10) cutin "hair_m_0"+@nobem,4;
	//if(Sex == 0 && @nobem > 9) cutin "hair_f_"+@nobem,4;
	//if(Sex == 1 && @nobem > 9) cutin "hair_m_"+@nobem,4;
	mes "[]";
	mes "oO u" + @hair_son01$[@nobem] + "vvI";
	mes @hair_son02$[@nobem];
	mes "ˡAٺNܡH";
	close2;
	cutin "son",255;
	end;

A02:
	mes "[]";
	mes "vAq123A";
	mes "аݧAnXH";
	mes "QܡAп0A";
	next;
	input @nobem;
	if(@nobem<1 || @nobem>23) goto A04;
	if(@nobem==getlook(1))
	{
		mes "[]";
		mes "uAȤHAA{bvA";
		mes "̦XAALFA";
		mes "n令L_ǪvA";
		mes "յۥΨL˹~A˹@Ua";
		cutin "son",255;
		close;
		end;
	}
	if(@nobem>=10) cutin sex?("hair_m_"+@nobem):("hair_f_"+@nobem),4;
	else cutin sex?("hair_m_0"+@nobem):("hair_f_0"+@nobem),4;
	mes "[]";
	mes "oO u" + @hair_son01$[@nobem] + "vvI";
	mes @hair_son02$[@nobem];
	mes "ˡAٺNܡH";
	next;
	menu	"NOo",-,
		"AݧO",A02,
		"",A04;
	cutin "son",2;
	mes "[]";
	mes "ȤHAzuWSOA";
	mes "oӾv@w|AaӦn߱a?";
	mes "ڲ{bNA";
	next;
	setlook 1,@nobem;
	mes "[]";
	mes "nFA";
	mes "ˡAOO߱]@ܦnF?";
	mes "UݭnܡAٰOoӧڭ";
	cutin "son",255;
	close;
	end;

A03:
	mes "[]";
	mes "JMȤHo򻡡AڥNɤ@VOӬȤHAȪCCڱNA1000ӪApGAAOLk_C";
	next;
	mes "[]";
	if(Hp>=MaxHp && Sp>=MaxSp)
	{
		mes "z{bA}nAݭn_HP/SP~UݭnɭԦAӧaC";
		cutin "son",255;
		close;
		end;		
	}
	if(zeny>=1000)
	{
		percentheal 100,100;
		set zeny,zeny-1000;
		mes "±zAzHP/SPwg_ApG٦ݭnAHw^ӧڳ!";
	}
	else
		mes "ܩpzAڵLkz_HP/SP";
	cutin "son",255;
	close;
	end;
A04:
	mes "[]";
	mes "SYAݭnܡAаOoڡAڷ|bAAȡC";
	next;
	mes "[]";
	mes "OoAbnPҸ̩߶}@AnnɨCгyXݩAǻA]ФjannnR@ڡAڤ]|VOUAȪC";
	cutin "son",255;
	close;
	end;
}

prontera.gat,146,92,5	script		756,{ callfunc "son"; }
izlude.gat,134,92,4	script		756,{ callfunc "son"; }
aldebaran.gat,143,116,5	script		756,{ callfunc "son"; }
geffen.gat,120,60,8	script		756,{ callfunc "son"; }
morocc.gat,162,97,5	script		756,{ callfunc "son"; }
alberta.gat,25,238,5	script		756,{ callfunc "son"; }
payon.gat,198,117,4	script		756,{ callfunc "son"; }
yuno.gat,164,48,5	script		756,{ callfunc "son"; }
amatsu.gat,192,81,5	script		756,{ callfunc "son"; }
gonryun.gat,156,14,5	script		756,{ callfunc "son"; }
xmas.gat,149,135,5	script		756,{ callfunc "son"; }
